<%
'--------------------------------------------------------------------------------------------
'Questa funzione serve a controllare che i file singoli non siano
'richiamati dal browser ma solo da OpenAsp, nel caso in cui il browser tenta di aprire tali file
'l'utente viene subito rimandato alla homepage del sito
'splitto la stringa SQL per recuperare la pagina che si cerca di aprire
i = split(request.ServerVariables("HTTP_URL"), "/")
'confronto il nome del modulo con la funzione Ubound che mi restituisce il massimo
'valore dell'array, quindi il nome della pagina richiesta dall'utente, se coincidono
'rimando alla index
if strComp("admin_log_attacchi.asp", i(Ubound(i)), 1) = 0 then
  response.redirect request.servervariables("HTTP_REFERER")
end if
'--------------------------------------------------------------------------------------------
%>
<div id="position">
	&raquo; <a href="admin.asp" class="testo">Control Center</a> &raquo; <%=traducisys("ling_occ_109")%>
</div>
<div id="page">
<%

'---------LIMITO IL BLOCCO SOLO AL SUPERADMIN----------
Call onlySADM()
'------------------------------------------------------
  Select case request.QueryString("pass")
  CASE 0, "":
   %>
   <table border="0" width="100%" align="center" id="tabledata">
   <thead>
   <tr>
	<td align="center">  
     <font class="testo"><b><%=traducisys("ling_occ_110")%></b></font>
	</td>
	<td align="center">  
     <font class="testo"><b><%=traducisys("ling_occ_111")%></b></font>
	</td>
	<td align="center">  
     <font class="testo"><b><%=traducisys("ling_occ_112")%></b></font>
	</td>
	<td align="center">  
     <font class="testo"><b><%=traducisys("ling_occ_113")%></b></font>
	</td>		
   </tr>
   </thead>         
   <%
   strSQL = "SELECT * FROM TB_ATTACCHI"
   Dim totAtt
   totAtt = 0
   Set userRS = objConn.Execute(strSQL)
   Do while NOT userRS.EOF  
   totAtt = totAtt + 1
   %>
   <tr>
	<td align="center">  
     <font class="testo"><%=userRS("Utente")%><br />&nbsp;</font>
	</td>
	<td align="center">  
     <font class="testo"><%=userRS("ip")%></font>
	</td>
	<td align="center">  
     <font class="testo"><%=userRS("messaggio")%></font>
	</td>
	<td align="center">  
     <font class="testo"><%=chkDate(userRS("ora"), " : ", true)%></font>
	</td>			
   </tr>   
   <%   
   userRS.MoveNext
   loop
   Set userRS = Nothing
  %>
  <tr>
   <td align="center" colspan="4" class="testo"><br />
   <%
   if totAtt > 0 then
   %>
    <a class="testo" title="<%=traducisys("ling_occ_115")%>" href="admin.asp?op=admin_log_attacchi&pass=1">
     <%=traducisys("ling_occ_115")%>
	</a>
   <%
   else
    response.Write traducisys("ling_occ_118")
   end if
   %>
   </td>
  </tr>
  </table>
  <%
  'Eliminazione di un utente
  CASE 1: 
   strSQL = "DELETE FROM TB_ATTACCHI"
   Set delRS = objConn.Execute(strSQL)
   Set delRS = Nothing  
	  'Richiamo la sub per cambiare automaticamente pagina	  
      call autoReturn("admin.asp?op=Admin_log_attacchi", 2)		
  End select
%>	
</div>
